home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / dist / scripts / rufus / mt_batch / mt_batch.ruf < prev    next >
Encoding:
Text File  |  1997-10-26  |  11.7 KB  |  534 lines
  1. # RUFUS-Batchprogramm fr automatischen MausTausch
  2. # (C) 08.01.95 by Mathias Weber @ S3 - Version 2.7
  3. # ------------------------------------------------------------------------------
  4. # Konfiguration   BITTE DAZU UNBEDINGT DIE ANLEITUNG LESEN!
  5. # ------------------------------------------------------------------------------
  6. infile="e:\rufus\export\infile.zip"            # Dateiname des Infiles
  7. outfile="e:\rufus\import\outfile.zip"          # Dateiname des Outfiles
  8. pproto="e:\cat\mt_proto.txt"                   # Dateiname des Protokolles
  9. pstrep="e:\cat\mt_strep.txt"                   # Dateiname des Status-Reports
  10. modres="atz"                                   # Modem-Reset
  11. anwahl="atd0711-2368367"                       # Anwahlstring
  12. conlog="Connect to MAUS Stuttgart 3 [2368367]" # Log-Eintrag bei Connect
  13. anwmax=20         # Maximale Zahl der Anwahlversuche
  14. automt=0          # Autom. Lauf mit STANDARD-Einstellungen?        (0=nein/1=ja)
  15. tausch=1          # STANDARD: MausTausch ausfhren?                (0=nein/1=ja)
  16. prolis=1          # STANDARD: Programmliste downloaden?            (0=nein/1=ja)
  17. proumf=0          # STANDARD: Umfang der Programmliste?          (0=neue/1=alle)
  18. proein=1          # STANDARD: Einschr„nkung nach Betriebssystemen? (0=nein/1=ja)
  19. prosys="0,4"      # Gewnschte Betriebssysteme in Liste?    (siehe Beschreibung)
  20. packer="Z"        # Packverfahren fr Programmlisten?       (siehe Beschreibung)
  21. intzmd=1          # Wird das interne ZModem von Rufus verwendet?   (0=nein/1=ja)
  22. rufend=0          # Am Batchende Rufus beenden?                    (0=nein/1=ja)
  23. # ------------------------------------------------------------------------------
  24. anwver=1
  25. anwpau=dialpause*1000
  26. auslog=1
  27. autozmodem=on
  28. dialog=""
  29. diaant=0                 #       In diesem Teil nichts ver„ndern!
  30. emulation=vt100
  31. logging=on
  32. nurtau=0
  33. subflr=0
  34. log "* MausTausch-Batch startet *"
  35. # ------------------------------------------------------------------------------
  36. # Titel
  37. # ------------------------------------------------------------------------------
  38. print '^[';
  39. print "[0;0H";
  40. print '^[';
  41. print "[J";
  42. print '^[';
  43. print "[0;7m";
  44. print "            Batchprogramm fr automatischen MausTausch - Version 2.7           "
  45. print "                   (C) Mathias Weber @ S3 - Abbruch mit [ESC]                  "
  46. print '^[';
  47. print "[0m";
  48. gosub 67
  49. # ------------------------------------------------------------------------------
  50. # Funktionsabfrage
  51. # ------------------------------------------------------------------------------
  52. 1:
  53. gosub 80
  54. if automt=1 then 4
  55. alert 12,"MausTausch ausfhren?","[Auto|[Ja|[Nein"
  56. if status=1 then 3
  57. if status=2 then 2
  58. gosub 96
  59. if diaant=0 then 1
  60. automt=1
  61. auslog=1
  62. gosub 80
  63. wait 3000
  64. goto 4
  65. 2:
  66. tausch=0
  67. goto 6
  68. 3:
  69. tausch=1
  70. 4:
  71. if tausch=0 then 6
  72. exist outfile
  73. if status<>0 then 5
  74. dialog="Es ist noch ein altes OUTFILE vorhanden!"
  75. gosub 90
  76. goto 37
  77. 5:
  78. exist infile
  79. if status=0 then 6
  80. dialog="INFILE nicht vorhanden!"
  81. gosub 90
  82. goto 37
  83. 6:
  84. if automt=1 then 10
  85. gosub 80
  86. alert 12,"Programmliste downloaden?","[Nein|[Ja"
  87. prolis=status
  88. gosub 80
  89. if prolis=0 then 7
  90. alert 12,"Umfang der Programmliste...","[Neue|[Alle"
  91. proumf=status
  92. gosub 80
  93. gosub 65
  94. gosub 80
  95. 7:
  96. if tausch=1 then 8
  97. if prolis=1 then 8
  98. dialog="Nur einen Login durchfhren?"
  99. auslog=0
  100. goto 9
  101. 8:
  102. alert 12,"Anschlieáend ausloggen?","[Nein|[Ja"
  103. auslog=status
  104. dialog="Batch starten?"
  105. 9:
  106. gosub 80
  107. alert 12,dialog,"[Start|[Zurck|[Abbruch"
  108. if status=0 then 10
  109. if status=1 then 1 else 37
  110. # ------------------------------------------------------------------------------
  111. # MAUS anw„hlen
  112. # ------------------------------------------------------------------------------
  113. 10:
  114. ringin=0
  115. print '^[';
  116. print "[5;0H";
  117. print "                          Anwahlversuch Nr. ";
  118. print anwver;
  119. print "  "
  120. print
  121. print '^[';
  122. print "[0;1m";
  123. print "                        MAUS wird angew„hlt ...             "
  124. print
  125. print
  126. print '^[';
  127. print "[0;7m";
  128. print "--- Modem: --------------------------------------------------------------------";
  129. print '^[';
  130. print "[0;0m";
  131. print '^[';
  132. print "[11;0H";
  133. print '^[';
  134. print "[J";
  135. print
  136. send modres
  137. rwait 2000,"OK"
  138. send anwahl
  139. 11:
  140. rwait 90000,"CONNECT","BUSY","NO CARRIER","NO DIALTONE","RINGING"
  141. print '^[';
  142. print "[7;18H";
  143. print "                                           "
  144. if status=0 then 20
  145. if status=1 then 12
  146. if status=2 then 12
  147. if status>2 then 14
  148. goto 10
  149. 12:
  150. anwver=anwver+1
  151. if anwver>anwmax then 16
  152. print '^[';
  153. print "[7;18H";
  154. print "MAUS ist zur Zeit belegt - bitte warten ..."
  155. print '^[';
  156. print "[15;0H";
  157. rwait anwpau,"RING"
  158. if status<>0 then 10
  159. print '^[';
  160. print "[7;18H";
  161. print "Eingehender Anruf - W„hlpause von 1 Minute "
  162. if automt=1 then 13
  163. dialog="Eingehender Anruf"
  164. gosub 91
  165. if diaant=0 then 37 else 10
  166. 13:
  167. log "Eingehender Anruf - W„hlpause. 1 Min."
  168. wait 60000
  169. goto 10
  170. 14:
  171. if status=4 then 15
  172. dialog="Kein W„hlton vorhanden"
  173. gosub 90
  174. if diaant=0 then 37
  175. wait 5000
  176. goto 10
  177. 15:
  178. print '^[';
  179. print "[7;18H";
  180. print " MAUS ist frei, und wird gerufen...      "
  181. print '^[';
  182. print "[15;0H";
  183. ringin=ringin+1
  184. if ringin<6 then 11
  185. print '^[';
  186. print "[7;18H";
  187. print "                                         "
  188. dialog="MAUS ist zur Zeit offline"
  189. send
  190. gosub 90
  191. wait 1000
  192. goto 37
  193. 16:
  194. dialog="Max. Anzahl der W„hlversuche erreicht!"
  195. gosub 91
  196. if diaant=0 then 37
  197. anwver=1
  198. log "Anwahl fortgesetzt"
  199. goto 10
  200. # ------------------------------------------------------------------------------
  201. # Einloggen in MAUS
  202. # ------------------------------------------------------------------------------
  203. 20:
  204. log conlog
  205. clear
  206. print '^[';
  207. print "[2J";
  208. bell 0
  209. print "Batchprogramm fr automatischen MausTausch - Abbruch mit ESC"
  210. print "------------------------------------------------------------"
  211. print "Connect nach ";
  212. print anwver;
  213. print " Anwahlversuch(en)"
  214. print
  215. print
  216. rwait 30000,"(J/N)"
  217. if status<>0 then 29
  218. wait 1000
  219. if nurtau=1 then 21
  220. send "j";
  221. goto 22
  222. 21:
  223. send "MausTausch";
  224. 22:
  225. rwait 6000,"Name"
  226. if status<>0 then 29
  227. wait 1000
  228. send F1
  229. 23:
  230. rwait 6000,"Password"
  231. wait 1000
  232. send F11
  233. rwait 6000,"Leertaste","alsch","MausTausch"
  234. if status=1 then 23
  235. if status=2 then 30
  236. wait 1000
  237. send " ";
  238. goto 30
  239. 29:
  240. dialog="Fehler bei Einlog-Prozedur"
  241. goto 34
  242. # ------------------------------------------------------------------------------
  243. # Verzweigung zu den Unterprogrammen, Puffer sichern
  244. # ------------------------------------------------------------------------------
  245. 30:
  246. if tausch=0 then 31
  247. gosub 40
  248. if subflr=1 then 34
  249. if nurtau=0 then 31
  250. gosub 71
  251. goto 35
  252. 31:
  253. if prolis=0 then 32
  254. gosub 50
  255. if subflr=1 then 34
  256. 32:
  257. if auslog=0 then 37
  258. gosub 70
  259. goto 35
  260. 34:
  261. gosub 90
  262. if automt=0 then 35
  263. gosub 72
  264. 35:
  265. if pproto="" then 36
  266. delete pproto
  267. save pproto
  268. log "Puffer gesichert"
  269. 36:
  270. clear
  271. if pstrep="" then 37
  272. send "ati2"
  273. wait 2000
  274. delete pstrep
  275. save pstrep
  276. log "Status-Report gesichert"
  277. 37:
  278. log "* MausTausch-Batch beendet *"
  279. if automt=1 then 38
  280. bell 0
  281. alert 2,"Batch beendet","[OK"
  282. 38:
  283. # Soll die Logdatei nach dem Batch-Ablauf wieder gel”scht werden, so muá das
  284. # Kommentarzeichen '#' am Anfang der n„chsten Zeile gel”scht und der Pfad des
  285. # Logfiles eingegeben werden:
  286. # delete "e:\rufus\rufus.log"
  287. if rufend=0 then 39
  288. dtr=off
  289. quit
  290. 39:
  291. end
  292. # ------------------------------------------------------------------------------
  293. # Unterprogramm: MausTausch
  294. # ------------------------------------------------------------------------------
  295. 40:
  296. if nurtau=1 then 41
  297. rwait 15000,"Eingabe"
  298. wait 1000
  299. send "T";
  300. rwait 15000,"Protokoll"
  301. 41:
  302. wait 1000
  303. send "Z";
  304. rwait 15000,"Protokoll startet"
  305. if status=0 then 42
  306. dialog="šbertragungsprotokoll startet nicht"
  307. goto 48
  308. 42:
  309. upload infile
  310. if status=0 then 43
  311. dialog="Fehler bei INFILE-šbertragung"
  312. goto 48
  313. 43:
  314. rwait 300000,"**"
  315. if status=0 then 44
  316. dialog="Timeout bei OUTFILE-Empfang"
  317. goto 48
  318. 44:
  319. download
  320. if intzmd=1 then 47
  321. if status=0 then 47
  322. dialog="Fehler bei OUTFILE-šbertragung"
  323. goto 48
  324. 47:
  325. log "MausTausch beendet"
  326. rwait 6000,"Leertaste"
  327. wait 1000
  328. send " ";
  329. goto 49
  330. 48:
  331. subflr=1
  332. 49:
  333. return
  334. # ------------------------------------------------------------------------------
  335. # Unterprogramm: Programmliste holen
  336. # ------------------------------------------------------------------------------
  337. 50:
  338. rwait 6000,"Eingabe"
  339. wait 1000
  340. send "P";
  341. rwait 6000,"Eingabe"
  342. wait 1000
  343. send "A";
  344. if proumf=1 then 51
  345. rwait 6000,"Eingabe"
  346. wait 1000
  347. send "N";
  348. 51:
  349. if proein=0 then 52
  350. rwait 6000,"Eingabe"
  351. wait 1000
  352. send "B";
  353. rwait 6000,":"
  354. wait 1000
  355. send prosys
  356. 52:
  357. rwait 6000,"Eingabe"
  358. wait 1000
  359. send "O";
  360. 53:
  361. dialog="Timeout bei Empfang der Programmliste"
  362. rwait 150000,"Keine","Packer:","**","loaden"
  363. if status<0 then 59
  364. if status=0 then 55
  365. if status=1 then 56
  366. if status=2 then 54
  367. wait 1000
  368. send "J";
  369. goto 53
  370. 54:
  371. download
  372. if intzmd=1 then 57
  373. if status=0 then 57
  374. dialog="Fehler bei Empfang der Programmliste"
  375. goto 59
  376. 55:
  377. log "Keine neuen Programme vorhanden"
  378. goto 58
  379. 56:
  380. wait 1000
  381. send packer;
  382. goto 53
  383. 57:
  384. log "Programmliste geladen"
  385. 58:
  386. rwait 6000,"Leertaste"
  387. wait 1000
  388. send " ";
  389. rwait 6000,"Eingabe"
  390. wait 1000
  391. send "Z";
  392. goto 60
  393. 59:
  394. subflr=1
  395. 60:
  396. return
  397. 65:
  398. if prosys="" then 66
  399. alert 12,"Nur die in der Konfiguration angeg.|Betriebssysteme bercksichtigen?","[Nein|[Ja"
  400. proein=status
  401. 66:
  402. return
  403. 67:
  404. proein=0
  405. if prosys="" then 68
  406. proein=1
  407. 68:
  408. return
  409. # ------------------------------------------------------------------------------
  410. # Unterprogramm: Ausloggen aus MAUS
  411. # ------------------------------------------------------------------------------
  412. 70:
  413. rwait 6000,"Eingabe"
  414. wait 1000
  415. send "S";
  416. rwait 6000,"aufh"
  417. wait 1000
  418. send "J";
  419. 71:
  420. gosub 74
  421. if status=0 then 79
  422. 72:
  423. if carrier=0 then 79
  424. dtr=off
  425. gosub 74
  426. if status=0 then 79
  427. dtr=on
  428. 73:
  429. wait 2000
  430. send "+++";
  431. wait 2000
  432. send "ath"
  433. gosub 74
  434. goto 79
  435. 74:
  436. rwait 20000,"NO CARRIER"
  437. return
  438. 79:
  439. return
  440. # ------------------------------------------------------------------------------
  441. # Unterprogramm: Statusanzeige
  442. # ------------------------------------------------------------------------------
  443. 80:
  444. nurtau=1
  445. if prolis=1 then 81
  446. if auslog=0 then 81 else 82
  447. 81:
  448. nurtau=0
  449. 82:
  450. if automt=0 then 83
  451. auslog=1
  452. 83:
  453. print '^[';
  454. print "[18;0H";
  455. print "                     Eingestellte Funktionen:"
  456. print
  457. print '^[';
  458. print "[0;1m";
  459. if tausch=0 then 85
  460. print "                     MausTausch ";
  461. if nurtau=1 then 84
  462. print "(normaler Login)             "
  463. goto 85
  464. 84:
  465. print "(Tausch-Login)               "
  466. auslog=1
  467. 85:
  468. if prolis=0 then 88
  469. print "                     ";
  470. if proein=0 then 86
  471. print "Eingeschr„nkte ";
  472. 86:
  473. print "Programmliste ";
  474. if proumf=0 then 87
  475. print "(alle Prg.)               "
  476. goto 88
  477. 87:
  478. print "(neue Prg.)               "
  479. 88:
  480. if auslog=0 then 89
  481. print "                     Automatischer Logout                    "
  482. 89:
  483. print "                                                             "
  484. print "                                                             ";
  485. print '^[';
  486. print "[0;0m";
  487. clear
  488. return
  489. # ------------------------------------------------------------------------------
  490. # Unterprogramm: Fehlermeldungen / Logdatei
  491. # ------------------------------------------------------------------------------
  492. 90:
  493. diaant=0
  494. if automt=1 then 92
  495. bell 0
  496. alert 11,dialog,"[ABBRUCH"
  497. goto 93
  498. 91:
  499. if automt=1 then 92
  500. bell 0
  501. alert 11,dialog,"[ABBRUCH|[WEITER"
  502. diaant=status
  503. goto 93
  504. 92:
  505. print '^[';
  506. print "[2J";
  507. print
  508. print '^[';
  509. print "[0;7m";
  510. print "ABBRUCH: ";
  511. print dialog
  512. print '^[';
  513. print "[0;0m";
  514. print
  515. 93:
  516. log dialog
  517. if diaant=1 then 94
  518. log "Abbruch"
  519. goto 95
  520. 94:
  521. log "Fortsetzung"
  522. 95:
  523. return
  524. 96:
  525. if tausch=1 then 97
  526. if prolis=1 then 97
  527. diaant=0
  528. alert 11,"Es ist keine Funktion ausgew„hlt!","[Ach so..."
  529. goto 98
  530. 97:
  531. diaant=1
  532. 98:
  533. return
  534. end